home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Data 2002 May / CD Rom Data Mayıs 2002.iso / Freeware / Blitz Basic / data1.cab / Support / help / beginners / Examples / if then1.bb < prev    next >
Encoding:
Text File  |  2002-04-10  |  312 b   |  11 lines
  1. .start 
  2. question$ = Input ("Shall I tell you the meaning of life yes/no? ")
  3. If question$ = "no" Then Print "Alright, Then I won't":Goto Leave
  4. If question$ = "yes" Then Print "42":Goto Leave
  5. If question$ <> "yes" Or "no" Then Goto start
  6. End
  7. .Leave
  8. Print "Press ESC to Exit"
  9. Repeat
  10.     VWait
  11. Until KeyHit(1)